home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / umich / tex / texsrc.arc / TEX4.C < prev    next >
C/C++ Source or Header  |  1988-09-14  |  54KB  |  2,176 lines
  1. overlay "tex4"
  2. #define EXTERN extern
  3. #include "texd.h"
  4.  
  5. startinput () { /* 30 */ r_startinput 
  6.   scanfilename () ; 
  7.   if ( curext == 206 ) 
  8.   curext = 644 ; 
  9.   packfilename ( curname , curarea , curext ) ; 
  10.   while ( true ) { 
  11.     beginfilerea () ; 
  12.     if ( aopenin ( inputfile [ curinput .indexfield ] , inputpathspec ) ) 
  13.     goto lab30 ; 
  14.     endfilereadi () ; 
  15.     promptfilena ( 640 , 644 ) ; 
  16.   } 
  17.   lab30: curinput .namefield = amakenamestr ( inputfile [ curinput .indexfield 
  18.   ] ) ; 
  19.   if ( jobname == 0 ) 
  20.   {
  21.     jobname = curname ; 
  22.     openlogfile () ; 
  23.   } 
  24.   if ( termoffset + ( strstart [ curinput .namefield + 1 ] - strstart [ 
  25.   curinput .namefield ] ) > maxprintline - 2 ) 
  26.   println () ; 
  27.   else if ( ( termoffset > 0 ) || ( fileoffset > 0 ) ) 
  28.   printchar ( 32 ) ; 
  29.   printchar ( 40 ) ; 
  30.   print ( curinput .namefield ) ; 
  31.   termflush ( output ) ; 
  32.   curinput .statefield = 33 ; 
  33.   {
  34.     if ( ! inputln ( inputfile [ curinput .indexfield ] , false ) ) 
  35.     ; 
  36.     firmupthelin () ; 
  37.     if ( ( eqtb [ 5315 ] .cint < 0 ) || ( eqtb [ 5315 ] .cint > 127 ) ) 
  38.     decr ( curinput .limitfield ) ; 
  39.     else buffer [ curinput .limitfield ] = eqtb [ 5315 ] .cint ; 
  40.     first = curinput .limitfield + 1 ; 
  41.     curinput .locfield = curinput .startfield ; 
  42.     line = 1 ; 
  43.   } 
  44. } 
  45. internalfont zreadfontinfo ( u , nom , aire , s ) 
  46. halfword u ; 
  47. strnumber nom , aire ; 
  48. scaled s ; 
  49. {/* 30 11 45 */ register internalfont Result; 
  50.   r_readfontinfo 
  51.   integer k ; 
  52.   boolean fileopened ; 
  53.   halfword lf, lh, bc, ec, nw, nh, nd, ni, nl, nk, ne, np ; 
  54.   internalfont f ; 
  55.   internalfont g ; 
  56.   eightbits a, b, c, d ; 
  57.   fourquarters qw ; 
  58.   scaled sw ; 
  59.   scaled z ; 
  60.   integer alpha ; 
  61.   quarterword beta ; 
  62.   g = 0 ; 
  63.   fileopened = false ; 
  64.   packfilename ( nom , aire , 664 ) ; 
  65.   if ( ! bopenin ( tfmfile ) ) 
  66.   goto lab11 ; 
  67.   fileopened = true ; 
  68.   {
  69.     {
  70.       lf = tfmtemp ; 
  71.       if ( lf > 127 ) 
  72.       goto lab11 ; 
  73.       tfmtemp = getc ( tfmfile ) ; 
  74.       lf = lf * 256 + tfmtemp ; 
  75.     } 
  76.     tfmtemp = getc ( tfmfile ) ; 
  77.     {
  78.       lh = tfmtemp ; 
  79.       if ( lh > 127 ) 
  80.       goto lab11 ; 
  81.       tfmtemp = getc ( tfmfile ) ; 
  82.       lh = lh * 256 + tfmtemp ; 
  83.     } 
  84.     tfmtemp = getc ( tfmfile ) ; 
  85.     {
  86.       bc = tfmtemp ; 
  87.       if ( bc > 127 ) 
  88.       goto lab11 ; 
  89.       tfmtemp = getc ( tfmfile ) ; 
  90.       bc = bc * 256 + tfmtemp ; 
  91.     } 
  92.     tfmtemp = getc ( tfmfile ) ; 
  93.     {
  94.       ec = tfmtemp ; 
  95.       if ( ec > 127 ) 
  96.       goto lab11 ; 
  97.       tfmtemp = getc ( tfmfile ) ; 
  98.       ec = ec * 256 + tfmtemp ; 
  99.     } 
  100.     if ( ( bc > ec + 1 ) || ( ec > 255 ) ) 
  101.     goto lab11 ; 
  102.     tfmtemp = getc ( tfmfile ) ; 
  103.     {
  104.       nw = tfmtemp ; 
  105.       if ( nw > 127 ) 
  106.       goto lab11 ; 
  107.       tfmtemp = getc ( tfmfile ) ; 
  108.       nw = nw * 256 + tfmtemp ; 
  109.     } 
  110.     tfmtemp = getc ( tfmfile ) ; 
  111.     {
  112.       nh = tfmtemp ; 
  113.       if ( nh > 127 ) 
  114.       goto lab11 ; 
  115.       tfmtemp = getc ( tfmfile ) ; 
  116.       nh = nh * 256 + tfmtemp ; 
  117.     } 
  118.     tfmtemp = getc ( tfmfile ) ; 
  119.     {
  120.       nd = tfmtemp ; 
  121.       if ( nd > 127 ) 
  122.       goto lab11 ; 
  123.       tfmtemp = getc ( tfmfile ) ; 
  124.       nd = nd * 256 + tfmtemp ; 
  125.     } 
  126.     tfmtemp = getc ( tfmfile ) ; 
  127.     {
  128.       ni = tfmtemp ; 
  129.       if ( ni > 127 ) 
  130.       goto lab11 ; 
  131.       tfmtemp = getc ( tfmfile ) ; 
  132.       ni = ni * 256 + tfmtemp ; 
  133.     } 
  134.     tfmtemp = getc ( tfmfile ) ; 
  135.     {
  136.       nl = tfmtemp ; 
  137.       if ( nl > 127 ) 
  138.       goto lab11 ; 
  139.       tfmtemp = getc ( tfmfile ) ; 
  140.       nl = nl * 256 + tfmtemp ; 
  141.     } 
  142.     tfmtemp = getc ( tfmfile ) ; 
  143.     {
  144.       nk = tfmtemp ; 
  145.       if ( nk > 127 ) 
  146.       goto lab11 ; 
  147.       tfmtemp = getc ( tfmfile ) ; 
  148.       nk = nk * 256 + tfmtemp ; 
  149.     } 
  150.     tfmtemp = getc ( tfmfile ) ; 
  151.     {
  152.       ne = tfmtemp ; 
  153.       if ( ne > 127 ) 
  154.       goto lab11 ; 
  155.       tfmtemp = getc ( tfmfile ) ; 
  156.       ne = ne * 256 + tfmtemp ; 
  157.     } 
  158.     tfmtemp = getc ( tfmfile ) ; 
  159.     {
  160.       np = tfmtemp ; 
  161.       if ( np > 127 ) 
  162.       goto lab11 ; 
  163.       tfmtemp = getc ( tfmfile ) ; 
  164.       np = np * 256 + tfmtemp ; 
  165.     } 
  166.     if ( lf != 6 + lh + ( ec - bc + 1 ) + nw + nh + nd + ni + nl + nk + ne + 
  167.     np ) 
  168.     goto lab11 ; 
  169.   } 
  170.   lf = lf - 6 - lh ; 
  171.   if ( np < 7 ) 
  172.   lf = lf + 7 - np ; 
  173.   if ( ( fontptr == fontmax ) || ( fmemptr + lf > fontmemsize ) ) 
  174.   {
  175.     {
  176.       if ( interaction == 3 ) 
  177.       wakeuptermin () ; 
  178.       printnl ( 133 ) ; 
  179.       print ( 655 ) ; 
  180.     } 
  181.     sprintcs ( u ) ; 
  182.     printchar ( 61 ) ; 
  183.     printfilenam ( nom , aire , 206 ) ; 
  184.     if ( s >= 0 ) 
  185.     {
  186.       print ( 598 ) ; 
  187.       printscaled ( s ) ; 
  188.       print ( 262 ) ; 
  189.     } 
  190.     else if ( s != - 1000 ) 
  191.     {
  192.       print ( 656 ) ; 
  193.       printint ( - s ) ; 
  194.     } 
  195.     print ( 665 ) ; 
  196.     {
  197.       helpptr = 4 ; 
  198.       helpline [ 3 ] = 666 ; 
  199.       helpline [ 2 ] = 667 ; 
  200.       helpline [ 1 ] = 668 ; 
  201.       helpline [ 0 ] = 669 ; 
  202.     } 
  203.     error () ; 
  204.     goto lab30 ; 
  205.   } 
  206.   f = fontptr + 1 ; 
  207.   charbase [ f ] = fmemptr - bc ; 
  208.   widthbase [ f ] = charbase [ f ] + ec + 1 ; 
  209.   heightbase [ f ] = widthbase [ f ] + nw ; 
  210.   depthbase [ f ] = heightbase [ f ] + nh ; 
  211.   italicbase [ f ] = depthbase [ f ] + nd ; 
  212.   ligkernbase [ f ] = italicbase [ f ] + ni ; 
  213.   kernbase [ f ] = ligkernbase [ f ] + nl ; 
  214.   extenbase [ f ] = kernbase [ f ] + nk ; 
  215.   parambase [ f ] = extenbase [ f ] + ne ; 
  216.   {
  217.     if ( lh < 2 ) 
  218.     goto lab11 ; 
  219.     {
  220.       tfmtemp = getc ( tfmfile ) ; 
  221.       a = tfmtemp ; 
  222.       qw .b0 = a ; 
  223.       tfmtemp = getc ( tfmfile ) ; 
  224.       b = tfmtemp ; 
  225.       qw .b1 = b ; 
  226.       tfmtemp = getc ( tfmfile ) ; 
  227.       c = tfmtemp ; 
  228.       qw .b2 = c ; 
  229.       tfmtemp = getc ( tfmfile ) ; 
  230.       d = tfmtemp ; 
  231.       qw .b3 = d ; 
  232.       fontcheck [ f ] = qw ; 
  233.     } 
  234.     tfmtemp = getc ( tfmfile ) ; 
  235.     {
  236.       z = tfmtemp ; 
  237.       if ( z > 127 ) 
  238.       goto lab11 ; 
  239.       tfmtemp = getc ( tfmfile ) ; 
  240.       z = z * 256 + tfmtemp ; 
  241.     } 
  242.     tfmtemp = getc ( tfmfile ) ; 
  243.     z = z * 256 + tfmtemp ; 
  244.     tfmtemp = getc ( tfmfile ) ; 
  245.     z = ( z * 16 ) + ( tfmtemp / 16 ) ; 
  246.     if ( z < 65536 ) 
  247.     goto lab11 ; 
  248.     while ( lh > 2 ) { 
  249.       tfmtemp = getc ( tfmfile ) ; 
  250.       tfmtemp = getc ( tfmfile ) ; 
  251.       tfmtemp = getc ( tfmfile ) ; 
  252.       tfmtemp = getc ( tfmfile ) ; 
  253.       decr ( lh ) ; 
  254.     } 
  255.     fontdsize [ f ] = z ; 
  256.     if ( s != - 1000 ) 
  257.     if ( s >= 0 ) 
  258.     z = s ; 
  259.     else z = xnoverd ( z , - s , 1000 ) ; 
  260.     fontsize [ f ] = z ; 
  261.   } 
  262.   for ( k = fmemptr ; k <= widthbase [ f ] - 1 ; k ++ ) 
  263.   {
  264.     {
  265.       tfmtemp = getc ( tfmfile ) ; 
  266.       a = tfmtemp ; 
  267.       qw .b0 = a ; 
  268.       tfmtemp = getc ( tfmfile ) ; 
  269.       b = tfmtemp ; 
  270.       qw .b1 = b ; 
  271.       tfmtemp = getc ( tfmfile ) ; 
  272.       c = tfmtemp ; 
  273.       qw .b2 = c ; 
  274.       tfmtemp = getc ( tfmfile ) ; 
  275.       d = tfmtemp ; 
  276.       qw .b3 = d ; 
  277.       fontinfo [ k ] .qqqq = qw ; 
  278.     } 
  279.     if ( ( a >= nw ) || ( b / 16 >= nh ) || ( b % 16 >= nd ) || ( c / 4 >= ni 
  280.     ) ) 
  281.     goto lab11 ; 
  282.     switch ( c % 4 ) 
  283.     {case 1 : 
  284.       if ( d >= nl ) 
  285.       goto lab11 ; 
  286.       break ; 
  287.     case 3 : 
  288.       if ( d >= ne ) 
  289.       goto lab11 ; 
  290.       break ; 
  291.     case 2 : 
  292.       {
  293.     {
  294.       if ( ( d < bc ) || ( d > ec ) ) 
  295.       goto lab11 ; 
  296.     } 
  297.     while ( d < k + bc - fmemptr ) { 
  298.       qw = fontinfo [ charbase [ f ] + d ] .qqqq ; 
  299.       if ( ( ( qw .b2 ) % 4 ) != 2 ) 
  300.       goto lab45 ; 
  301.       d = qw .b3 ; 
  302.     } 
  303.     if ( d == k + bc - fmemptr ) 
  304.     goto lab11 ; 
  305.     lab45: ; 
  306.       } 
  307.       break ; 
  308.     default : 
  309.       ; 
  310.       break ; 
  311.     } 
  312.   } 
  313.   {
  314.     {
  315.       alpha = 16 ; 
  316.       while ( z >= 8388608 ) { 
  317.     z = z / 2 ; 
  318.     alpha = alpha + alpha ; 
  319.       } 
  320.       beta = 256 / alpha ; 
  321.       alpha = alpha * z ; 
  322.     } 
  323.     for ( k = widthbase [ f ] ; k <= ligkernbase [ f ] - 1 ; k ++ ) 
  324.     {
  325.       tfmtemp = getc ( tfmfile ) ; 
  326.       a = tfmtemp ; 
  327.       tfmtemp = getc ( tfmfile ) ; 
  328.       b = tfmtemp ; 
  329.